home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Palet.cpt / Palette XFCN / background_2669.txt < prev    next >
Text File  |  1988-09-20  |  6KB  |  286 lines
  1. -- background: 2669 from stack: in
  2. -- bmap block id: 6291
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   put "C" into myState
  9.   put "ABC" into myRad
  10.   put "" into myTog
  11.  
  12.   put Palette("Install","Palette","ExtToolsΔí",myState,myRad,myTog) into temp
  13. end openBackground
  14.  
  15. on closeBackground
  16.   put Palette("Remove") into temp
  17. end closeBackground
  18.  
  19.  
  20. -- part 264 (field)
  21. -- low flags: 01
  22. -- high flags: 2000
  23. -- rect: left=38 top=34 right=306 bottom=478
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 0
  27. -- font id: 2
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 20
  31. -- part name: 
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   visual effect dissolve very slowly
  35.   if the id of this card is "card id 3058" then
  36.     go to card id 4434
  37.     exit mouseUp
  38.   end if
  39.   go to card id 3058
  40.   show menuBar
  41. end mouseUp
  42.  
  43.  
  44. -- part 260 (field)
  45. -- low flags: 81
  46. -- high flags: 2004
  47. -- rect: left=37 top=34 right=132 bottom=246
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 3
  52. -- text size: 9
  53. -- style flags: 0
  54. -- line height: 12
  55. -- part name: About
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   set lockScreen to true
  59.   hide bkgnd btn "Oscar"
  60.   hide bkgnd field "About"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 276 (button)
  66. -- low flags: 80
  67. -- high flags: 0000
  68. -- rect: left=37 top=34 right=73 bottom=74
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 5155 / 5155
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Oscar
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   set lockScreen to true
  80.   hide bkgnd btn "Oscar"
  81.   hide bkgnd field "About"
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 282 (field)
  87. -- low flags: 01
  88. -- high flags: 2000
  89. -- rect: left=33 top=297 right=313 bottom=286
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 3
  94. -- text size: 9
  95. -- style flags: 0
  96. -- line height: 12
  97. -- part name: 
  98.  
  99.  
  100. -- part 300 (button)
  101. -- low flags: 80
  102. -- high flags: 2000
  103. -- rect: left=344 top=135 right=161 bottom=371
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Indiana 1
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   set lockScreen to true
  115.   push card
  116.   hide bkgnd field "Name It"
  117.   visual effect dissolve slowly
  118.   go to card "Indiana"
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 301 (button)
  124. -- low flags: 80
  125. -- high flags: 2000
  126. -- rect: left=347 top=127 right=139 bottom=370
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Indiana 4
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   set lockScreen to true
  138.   push card
  139.   hide bkgnd field "Name It"
  140.   visual effect dissolve slowly
  141.   go to card "Indiana"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 302 (button)
  147. -- low flags: 80
  148. -- high flags: 2000
  149. -- rect: left=354 top=156 right=168 bottom=366
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Indiana 3
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   set lockScreen to true
  161.   push card
  162.   hide bkgnd btn "Name It"
  163.   visual effect dissolve slowly
  164.   go to card "Indiana"
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 303 (button)
  170. -- low flags: 80
  171. -- high flags: 2000
  172. -- rect: left=344 top=160 right=178 bottom=356
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Indiana 2
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   set lockScreen to true
  184.   push card
  185.   hide bkgnd btn "Name It"
  186.   visual effect dissolve slowly
  187.   go to card "Indiana"
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 287 (field)
  193. -- low flags: 81
  194. -- high flags: 2004
  195. -- rect: left=24 top=296 right=318 bottom=192
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 3
  200. -- text size: 9
  201. -- style flags: 256
  202. -- line height: 12
  203. -- part name: Name It
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   hide bkgnd field "Name It"
  207. end mouseUp
  208.  
  209.  
  210. -- part 372 (field)
  211. -- low flags: 81
  212. -- high flags: 2004
  213. -- rect: left=6 top=26 right=152 bottom=268
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 0
  217. -- font id: 3
  218. -- text size: 12
  219. -- style flags: 256
  220. -- line height: 16
  221. -- part name: Bucks
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   hide bkgnd field "Bucks"
  225. end mouseUp
  226.  
  227.  
  228. -- part 381 (field)
  229. -- low flags: 81
  230. -- high flags: 2004
  231. -- rect: left=135 top=54 right=106 bottom=357
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 3
  236. -- text size: 9
  237. -- style flags: 256
  238. -- line height: 12
  239. -- part name: Apple
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   hide bkgnd field "Apple"
  243.   set icon of bkgnd btn id 391 to 3849
  244.   hide bkgnd btn id 391
  245. end mouseUp
  246.  
  247.  
  248. -- part 391 (button)
  249. -- low flags: 80
  250. -- high flags: 0000
  251. -- rect: left=215 top=104 right=149 bottom=262
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 3849 / 3849
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Boing
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   play "Boing"
  263.   if visible of bkgnd field "Apple" is true then
  264.     hide bkgnd field "Apple"
  265.     set icon of me to 3849
  266.   else
  267.     show bkgnd field "Apple"
  268.     set icon of me to 22099
  269.   end if
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 401 (field)
  275. -- low flags: 81
  276. -- high flags: 2000
  277. -- rect: left=172 top=140 right=190 bottom=335
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 2
  282. -- text size: 24
  283. -- style flags: 23808
  284. -- line height: 32
  285. -- part name: Smile
  286.